home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / CODING / MISC / DSP4TEST.ZIP / TST2.LST < prev    next >
Encoding:
File List  |  1994-04-02  |  4.8 KB  |  133 lines
  1. Motorola DSP56000 Assembler  Version 3.1  94-04-01  20:57:15  tst2.asm  Page 1
  2.  
  3.  
  4.  
  5. 1                        ; lowpass filter left audio channel (cutoff 900Hz)
  6. 2      
  7. 214    
  8. 215    
  9. 216       0000A0         M         equ     160
  10. 217       0001E0         buflen    equ     3*M
  11. 218    
  12. 219    
  13. 220                                system  'dsp4'
  14. 228    
  15. 229       P:0040                   org     p:user_code
  16. 230    
  17. 231       P:0040 67F400            move              #buffer+2,r7
  18.                  000802
  19. 232       P:0042 05F427            move              #buflen*4-1,m7
  20.                  00077F
  21. 233    
  22. 234       P:0044 62F400            move              #buffer,r2
  23.                  000800
  24. 235       P:0046 3A0300            move              #4-1,n2
  25. 236       P:0047 05F422            move              #buflen*4-1,m2
  26.                  00077F
  27. 237    
  28. 238                                ctrlcd  1,r2,buflen,LINEI,0.0,0.0,LINEO|HEADP
  29. ,0.0,0.0
  30. 259                                opencd  8
  31. 288    
  32. 289                      ; wait for one complete block
  33. 290                      loop      waitblk r2,buflen,M
  34. 308    
  35. 309                      ; then filter the left channel
  36. 310       P:0065 05F420            move              #buflen*4-1,m0
  37.                  00077F
  38. 311       P:0067 70F400            move              #-4,n0
  39.                  FFFFFC
  40. 312       P:0069 64F400            move              #lotaps,r4
  41.                  001100
  42. 313       P:006B 054EA4            move              #<lolen-1,m4
  43. 314    
  44. 315       P:006C 225000            move              r2,r0
  45. 316       P:006D 06A080            do      #M,_endlpf
  46.                  000075
  47. 317       P:006F 200013            clr     a
  48. 318       P:0070 F08800            move              x:(r0)+n0,x0 y:(r4)+,y0
  49. 319       P:0071 064EA0            rep     #lolen-1
  50. 320       P:0072 F088D2            mac     x0,y0,a   x:(r0)+n0,x0 y:(r4)+,y0
  51. 321       P:0073 205AD3            macr    x0,y0,a   (r2)+
  52. 322       P:0074 5E4A00            move                          a,y:(r2)+n2
  53. 323       P:0075 225000            move              r2,r0
  54. 324                      _endlpf
  55. 325    
  56. 326       P:0076 0C0057            jmp     <loop
  57. 327    
  58. 328    
  59. 329       X:0018                   org     x:user_data
  60. 330    
  61. 331       X:0800         buffer    dsm     buflen*4
  62. 332    
  63. 333    
  64. 334       Y:0018                   org     y:user_data
  65. 335    
  66. 336       Y:0800                   dsm     buflen*4
  67. Motorola DSP56000 Assembler  Version 3.1  94-04-01  20:57:15  tst2.asm  Page 2
  68.  
  69.  
  70.  
  71. 337    
  72. 338                      ; 900 Hz lowpass filter generated using Parks-McClellan
  73.  algorithm
  74. 339                      ;   sampling rate   8000 Hz
  75. 340                      ;   passband edge    840 Hz
  76. 341                      ;   stop band edge   960 Hz
  77. 342                      ;   filter lenght     79 taps
  78. 343       Y:1000                   dsm     256
  79. 344       00004F         lolen     equ     79
  80. 345       Y:1100         lotaps    dc      1.619394e-02,5.805688e-03,3.155693e-0
  81. 3,-1.500173e-03,-6.545769e-03
  82. 346       Y:1105                   dc      -9.963868e-03,-1.022255e-02,-7.061145
  83. e-03,-1.754771e-03,3.332559e-03
  84. 347       Y:110A                   dc      5.765334e-03,4.199639e-03,-8.617942e-
  85. 04,-7.138900e-03,-1.151400e-02
  86. 348       Y:110F                   dc      -1.147496e-02,-6.426490e-03,1.780802e
  87. -03,9.467491e-03,1.274443e-02
  88. 349       Y:1114                   dc      9.432186e-03,3.507424e-04,-1.070496e-
  89. 02,-1.840716e-02,-1.827196e-02
  90. 350       Y:1119                   dc      -9.051937e-03,6.112294e-03,2.066623e-
  91. 02,2.704929e-02,2.031219e-02
  92. 351       Y:111E                   dc      9.089151e-04,-2.437167e-02,-4.415325e
  93. -02,-4.639930e-02,-2.320264e-02
  94. 352       Y:1123                   dc      2.545267e-02,9.059131e-02,1.564397e-0
  95. 1,2.052803e-01,2.232958e-01 ; center tap
  96. 353       Y:1128                   dc      2.052803e-01,1.564397e-01,9.059131e-0
  97. 2,2.545267e-02,-2.320264e-02
  98. 354       Y:112D                   dc      -4.639930e-02,-4.415325e-02,-2.437167
  99. e-02,9.089151e-04,2.031219e-02
  100. 355       Y:1132                   dc      2.704929e-02,2.066623e-02,6.112294e-0
  101. 3,-9.051937e-03,-1.827196e-02
  102. 356       Y:1137                   dc      -1.840716e-02,-1.070496e-02,3.507424e
  103. -04,9.432186e-03,1.274443e-02
  104. 357       Y:113C                   dc      9.467491e-03,1.780802e-03,-6.426490e-
  105. 03,-1.147496e-02,-1.151400e-02
  106. 358       Y:1141                   dc      -7.138900e-03,-8.617942e-04,4.199639e
  107. -03,5.765334e-03,3.332559e-03
  108. 359       Y:1146                   dc      -1.754771e-03,-7.061145e-03,-1.022255
  109. e-02,-9.963868e-03,-6.545769e-03
  110. 360       Y:114B                   dc      -1.500173e-03,3.155693e-03,5.805688e-
  111. 03,1.619394e-02
  112. 361    
  113. 362    
  114. 363                                end
  115.  
  116. 0    Errors
  117. 0    Warnings
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.